home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / bbs / mfm_111b.zip / STRINGS.PAS < prev    next >
Pascal/Delphi Source File  |  1992-01-07  |  3KB  |  84 lines
  1. Unit Strings;
  2.  
  3. Interface
  4.  
  5.   Type
  6.     ArrayInPtr = ^ArrayInType;
  7.     ArrayInType = Array[1..255] Of Char;
  8.  
  9.   Function MyStr(InVal : LongInt; MyStrLen : Byte) : String;
  10.   Function LtrimRtrim(InString : String) : String;
  11.   Function UpperString(InString : String) : String;
  12.   Function LowerString(InString : String) : String;
  13.   Function CapFirst(InString : String) : String;
  14.   Function InvertString(InString : String) : String;
  15.   Function RPos(StringToFind,StringToSearch : String) : Byte;
  16.   Function RCopy(InString : String; StartPosition,EndPosition : Byte) : String;
  17.  
  18. Implementation
  19.  
  20.   Var
  21.     x : Byte;
  22.     TempString : String;
  23. {========================================================================}
  24. Function MyStr(InVal : LongInt; MyStrLen : Byte) : String;
  25.   Var
  26.     OutString : String;
  27.   Begin
  28.     Str(InVal:MyStrLen,OutString);
  29.     MyStr := OutString;
  30.   End;
  31. {========================================================================}
  32. Function LtrimRtrim(InString : String) : String;
  33.   Begin
  34.     While (Copy(InString,1,1) = ^I) Or (Copy(InString,1,1) = ' ') Do Delete(InString,1,1);
  35.     While (Copy(InString,Length(InString),1) = ^I) Or
  36.           (Copy(InString,Length(InString),1) = ' ')
  37.           Do Delete(InString,Length(InString),1);
  38.     LtrimRtrim := InString;
  39.   End;
  40. {========================================================================}
  41. Function LoCase(InChar : Char) : Char;
  42.   Begin
  43.     If InChar In ['A'..'Z'] Then LoCase := Chr(Ord(InChar)+32) Else LoCase := InChar;
  44.   End;
  45. {========================================================================}
  46. Function UpperString(InString : String) : String;
  47.   Begin
  48.     For x := 1 To Length(InString) Do InString[x] := UpCase(InString[x]);
  49.     UpperString := InString;
  50.   End;
  51. {========================================================================}
  52. Function LowerString(InString : String) : String;
  53.   Begin
  54.     For x := 1 To Length(InString) Do InString[x] := LoCase(InString[x]);
  55.     LowerString := InString;
  56.   End;
  57. {========================================================================}
  58. Function CapFirst(InString : String) : String;
  59.   Begin
  60.     InString := LowerString(InString);
  61.     InString[1] := UpCase(InString[1]);
  62.     CapFirst := InString;
  63.   End;
  64. {========================================================================}
  65. Function InvertString(InString : String) : String;
  66.   Begin
  67.     TempString := '';
  68.     For x := Length(InString) DownTo 1 Do TempString := TempString+InString[x];
  69.     InvertString := TempString;
  70.   End;
  71. {========================================================================}
  72. Function RPos(StringToFind,StringToSearch : String) : Byte;
  73.   Begin
  74.     RPos := Pos(InvertString(StringToFind),InvertString(StringToSearch));
  75.   End;
  76. {========================================================================}
  77. Function RCopy(InString : String; StartPosition,EndPosition : Byte) : String;
  78.   Begin
  79.     InString := Copy(InvertString(InString),StartPosition,EndPosition);
  80.     Rcopy := InvertString(InString);
  81.   End;
  82. {========================================================================}
  83. Begin
  84. End.